home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 47.7z / BS1 part 47 / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].7z / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].adf / music / starmusic5.bas < prev    next >
Encoding:
BASIC Source File  |  1988-12-03  |  596 b   |  30 lines
  1. DIM noise%(255)
  2. FOR x=0 TO 255
  3.   noise%(x)=RND*255-128
  4. NEXT x
  5. WAVE 0,noise%
  6. WAVE 1,noise%
  7. WAVE 2,noise%
  8. ERASE noise%
  9.  
  10. SOUND WAIT
  11.  
  12. GetInfo:
  13.   READ freq,dur,vol,chl
  14.   IF freq=-1 THEN Play
  15.   SOUND freq,dur,vol,chl
  16. GOTO GetInfo:
  17.  
  18. Play:
  19.   SOUND RESUME
  20.  
  21. DATA 523.23,15,127,0, 659.28,15,96,1, 784,15,96,2
  22. DATA 784.15,15,222,0, 987.76,15,180,1, 1174.52,15,180,2
  23. DATA 698.48,6,127,0, 0,6,0,1, 0,6,0,2
  24. DATA 659.28,6,127,0, 0,6,0,1, 0,6,0,2
  25. DATA 587.28,6,127,0, 0,6,0,1, 0,6,0,2
  26. DATA 1046.52,15,225,0, 1318.52,15,180,1, 1568,15,180,2
  27. DATA 784,24,180,0, 987.76,24,160,1, 1174.52,24,160,2
  28. DATA -1,-1,-1,-1
  29.   
  30.